;;;Places direction arrow
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  4-16-98
;;;	   Edited:  4-16-98
;;;
(DEFUN C:DA ( / pt1 mp1 mp2 numb inss1 mpb mpn bldsc clayr txht )
  (setvar "cmdecho" 0)
  (if c:mklayr nil (load"mklayr"))
  (c:svlayr)
  (setq numb 0
        llt "-"
        colr "2"
        modf "NOTE"
  );setq
  (c:mklayr)
  (command)
  (if dimscl nil (load"dimscl"))
  (dimscl)
  (setq templ 125.0)
    (while
      (setq pt1 (getpoint "\nStart point of direction arrow: "))
      (setq mp1 pt1)
      (setq mp2 (upoint 0 "" "Next point " nil mp1))
      (setq inss1 (* dimsc (/ templ 100.00))
            dis1 (* inss1 0.125)
            ang0 (angle pt1 mp2)
            ang1 (+ ang0(* 0.055555 pi))
            ang2 (- ang0(* 0.055555 pi))
            spt2 (polar pt1 ang1 dis1)
            spt3 (polar pt1 ang2 dis1)
      );setq
      (command ".insert" "floaro" pt1 dimsc dimsc mp2)
    ); while
    (setvar "cmdecho" 1)
  (c:rslayr)
    (command)
);defun
